﻿Module Module1
  Sub Main()
    Dim i As Integer = 0
    Do
      i += 1
      Console.WriteLine("Riga: " & i)
    Loop While i < 12
    Console.ReadLine()
  End Sub
End Module
